home *** CD-ROM | disk | FTP | other *** search
/ LiquidLibrary 2005 February / LiquidLibrary 2005 February - Disc 1.iso / pc / Portfolio Browser / Filters / PDF / LIB / pdfwrite.ps < prev   
Text File  |  2003-01-03  |  8KB  |  274 lines
  1. %    Copyright (C) 1999, 2000, 2001 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile$ $Revision$
  7. % Writer for transmuting PDF files.
  8.  
  9. % NOTES:
  10. % We do editing by replacing objects (in the cache) and then doing a
  11. %   simple recursive walk with object renumbering.
  12. % Free variables:
  13. %   RMap [per input file] (dict): input_obj# => output_obj#
  14. %   PDFfile (file): current input file
  15. %   OFile (file): current output file
  16. %   XRef (dict): output_obj# => output_file_pos
  17. %   ToWrite: 0..N-1 => [obj# gen#]
  18.  
  19. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  20. .currentglobal true .setglobal
  21.  
  22. /PDEBUG where { pop } { /PDEBUG false def } ifelse
  23.  
  24. % ================ Object mapping ================ %
  25.  
  26. % Initialize the object number and location map.
  27. /omapinit {        % - omapinit -
  28.   /RMap 100 dict def
  29.   /XRef 100 dict def
  30.   PDEBUG { (omapinit) = } if
  31. } def
  32.  
  33. % Map an object number.
  34. /omapnew {        % <oldobj#> omap <newobj#> <isnew>
  35.   RMap 1 index .knownget {
  36.     exch pop false
  37.   } {
  38.     PDEBUG { (omap\() print dup =only } if
  39.     RMap dup length 1 add 2 index exch dup 5 1 roll put pop true
  40.     PDEBUG { (\) = ) print 1 index = } if
  41.   } ifelse
  42. } def
  43. /omap {            % <oldobj#> omap <newobj#>
  44.   omapnew pop
  45. } bind def
  46.  
  47. % Save and restore the object map.
  48. % Note that currentomap either returns a copy or calls omapinit.
  49. /currentomap {        % <copy> currentomap <omap>
  50.   {
  51.     [RMap dup length dict copy XRef dup length dict copy]
  52.   } {
  53.     [RMap XRef] omapinit
  54.   } ifelse
  55. } bind def
  56. /setomap {        % <omap> setomap -
  57.   aload pop /XRef exch def /RMap exch def
  58.   PDEBUG {
  59.     (setomap: #Xref = ) print XRef length =only
  60.     (, #RMap = ) print RMap length =
  61.   } if
  62. } bind def
  63.  
  64. % ================ Writing ================ %
  65.  
  66. % ---------------- Low-level output ---------------- %
  67.  
  68. % Write a string on the output file.
  69. /ows {            % <string> ows -
  70.   OFile exch writestring
  71. } def
  72.  
  73. % ---------------- Scalars ---------------- %
  74.  
  75. % Note that the '#' character isn't legal in a name unless it is a prefix
  76. % for a hex encoded character (for PDF 1.2 and later). The following assumes
  77. % that the names are already valid PDF 1.2+ names so that  we can treat the
  78. % '#' as a legal character. The next two hex characters are already in the
  79. % set of valid name characters. PDF 1.1 and earlier allowed spaces in names
  80. % which probably wouldn't make it past the tokenizer anyway.
  81. /pdfnamechars
  82.   (!"#$&'*+,-.0123456789:;=?@ABCDEFGHIJKLMNOPQRSTUVWXYZ\\^_`abcdefghijklmnopqrstuvwxyz|~)
  83. readonly def
  84. /pdfwritename {        % <name> pdfwritename -
  85.   (/) ows .namestring {
  86.     ( ) dup 0 4 -1 roll put
  87.     //pdfnamechars 1 index search {
  88.       pop pop pop
  89.     } {
  90.       pop 0 get 256 add 16 =string cvrs
  91.       dup 0 (#) 0 get put
  92.     } ifelse ows
  93.   } forall
  94. } def
  95.  
  96. % ---------------- Composite objects ---------------- %
  97.  
  98. /pdfwriteprocs mark
  99.   /resolveR { pdfwriteref }
  100.   /O { pdfwritenewref }
  101. .dicttomark readonly def
  102. /pdfwritearray {    % <array> pdfwritearray -
  103.   dup xcheck {
  104.     aload pop //pdfwriteprocs exch get exec
  105.   } {
  106.     % Because of a bug in Acrobat's parser for linearization parameters,
  107.     % we have to include some whitespace after the opening [ (!).
  108.     ([ ) ows { pdfwritevalue (\n) ows } forall (]) ows
  109.   } ifelse
  110. } def
  111.  
  112. /pdfwritedict {        % <dict> pdfwritedict -
  113.   dup xcheck {
  114.     pdfwritestream
  115.   } {
  116.     (<<) ows {
  117.       exch pdfwritevalue ( ) ows pdfwritevalue (\n) ows
  118.     } forall (>>) ows
  119.   } ifelse
  120. } def
  121.  
  122. % ---------------- References ---------------- %
  123.  
  124. /pdfwritenewref {    % <newobj#> pdfwritenewref -
  125.   OFile exch write=only ( 0 R) ows
  126. } def
  127.  
  128. /pdfwriteref {        % <obj#> <gen#> pdfwriteref -
  129.   1 index omapnew {
  130.     ToWrite dup length 5 -2 roll 2 packedarray put
  131.   } {
  132.     exch pop exch pop
  133.   } ifelse
  134.   pdfwritenewref
  135. } def
  136.  
  137. /pdfcopystring 200 string def
  138. /pdfwritestream {    % <streamdict> pdfwritestream -
  139.     % Remove File, FilePosition, and StreamKey;
  140.     % optimize by replacing an indirect Length.
  141.   dup dup length dict copy
  142.     % Stack: origdict dict
  143.   dup /File undef dup /FilePosition undef dup /StreamKey undef
  144.   dup /Length get dup oforce ne {
  145.     dup /Length 2 copy oget put
  146.   } if
  147.   exch dup /File get dup 3 -1 roll /FilePosition get setfileposition
  148.   pdfcopystream
  149. } def
  150.  
  151. % We put copying the stream contents in separate procedures so that we
  152. % can replace this function if desired.
  153. /pdfcopybytes {        % <fromfile> <tofile> <length> pdfcopybytes -
  154.   {
  155.     dup 0 eq { exit } if
  156.     //pdfcopystring 0 2 index 2 index length .min getinterval
  157.     3 index exch readstring 3 1 roll
  158.     3 index 1 index writestring length sub exch not { exit } if
  159.   } loop pop pop pop
  160. } def
  161. /pdfcopystream {    % <newstreamdict> <file> pdfcopystream -
  162.             %   (file has been positioned)
  163.   1 index pdfwritevalue (stream\n) ows
  164.   exch /Length get OFile exch pdfcopybytes
  165.   (endstream) ows
  166. } def
  167.  
  168. % ---------------- General values/objects ---------------- %
  169.  
  170. /pdfwritetypes mark
  171.     % Scalars
  172.   /nulltype { pop (null) ows }
  173.   /integertype { =string cvs ows }
  174.   /booleantype 1 index
  175.   /realtype { OFile exch write===only }
  176.   /stringtype 1 index
  177.   /nametype { pdfwritename }
  178.     % Composite/reference objects
  179.   /arraytype { pdfwritearray }
  180.   /packedarraytype 1 index
  181.   /dicttype { pdfwritedict }
  182. .dicttomark readonly def
  183.  
  184. /pdfwritevalue {    % <obj> pdfwritevalue -
  185.   PDEBUG { (****Writing: ) print dup === flush } if
  186.   //pdfwritetypes 1 index type get exec
  187. } def
  188.  
  189. % We make pdfwriteobjdef a separate procedure for external use.
  190. /pdfwriteobjheader {    % <newobj#> pdfwriteobjheader -
  191.   XRef 1 index OFile .fileposition put
  192.   PDEBUG { (XRef\() print dup =only (\) = ) print XRef 1 index get = } if
  193.   OFile exch write=only ( 0 obj\n) ows
  194. } def
  195. /pdfwriteobjdef {    % <newobj#> <value> pdfwriteobjdef -
  196.   exch pdfwriteobjheader
  197.   pdfwritevalue (\nendobj\n) ows
  198. } def
  199. /pdfwriteobj {        % <obj#> <gen#> pdfwriteobj -
  200.   1 index exch resolveR exch omap exch pdfwriteobjdef
  201. } def
  202.  
  203. % ---------------- File-level entities ---------------- %
  204.  
  205. % Write a PDF file header.
  206. % Free variables: OFile, PDFversion.
  207. /pdfwriteheader {    % - pdfwriteheader -
  208.   (%PDF-) ows OFile PDFversion write=
  209.   (%\347\363\317\323\n) ows
  210. } bind def
  211.  
  212. % Write a cross-reference table and trailer.
  213. /pdfwritexref {        % <firstobj#> <#objs> pdfwritexref -
  214.   (xref\n) ows
  215.   OFile 2 index write=only ( ) ows OFile 1 index write=
  216.   1 index add 1 sub 1 exch {
  217.     dup 0 eq {
  218.       pop (0000000000 65535 f \n) ows
  219.     } {
  220.       XRef exch get 1000000000 add =string cvs
  221.       dup 0 (0) 0 get put
  222.       ows ( 00000 n \n) ows
  223.     } ifelse
  224.   } for
  225. } bind def
  226. /pdfwritetrailer {    % <trailer> pdfwritetrailer -
  227.   (trailer\n) ows pdfwritevalue (\n) ows
  228. } bind def
  229. /pdfwritestartxref {    % <startpos> pdfwritestartxref -
  230.   (startxref\n) ows OFile exch write=
  231.   (%%EOF\n) ows
  232. } bind def
  233.  
  234. % ================ Top-level control ================ %
  235.  
  236. /pdfwrite {        % <file> <trailer> pdfwrite -
  237.   10 dict begin
  238.   /trailer exch def
  239.   /OFile exch def
  240.   /ToWrite 100 dict def
  241.   omapinit
  242.  
  243.     % Write the PDF file header.
  244.  
  245.   pdfwriteheader
  246.  
  247.     % Write the objects.
  248.  
  249.   trailer {
  250.     exch pop dup xcheck {    % The only executable objects are references.
  251.       aload pop pop pdfwriteobj
  252.     } {
  253.       pop
  254.     } ifelse
  255.   } forall
  256.     % Walk the object graph.
  257.   {
  258.     ToWrite dup length dup 0 eq { pop pop exit } if
  259.     1 sub 2 copy get 3 1 roll undef aload pop pdfwriteobj
  260.   } loop
  261.  
  262.     % Write the xref table and trailer.
  263.  
  264.   /xref OFile fileposition def
  265.   0 XRef length 1 add pdfwritexref
  266.   trailer dup length 1 add dict copy
  267.   dup /Size XRef length 1 add put pdfwritetrailer
  268.   xref pdfwritestartxref
  269.  
  270.   end
  271. } def
  272.  
  273. .setglobal
  274.